home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group3 / OCXSTEP2.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-06-08  |  5.1 KB  |  168 lines
  1. VERSION 4.00
  2. Begin VB.Form FormStep1 
  3.    Caption         =   "Mail eXtension Step #2"
  4.    ClientHeight    =   5295
  5.    ClientLeft      =   1590
  6.    ClientTop       =   1620
  7.    ClientWidth     =   6735
  8.    Height          =   5670
  9.    Left            =   1545
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5295
  12.    ScaleWidth      =   6735
  13.    Top             =   1290
  14.    Width           =   6825
  15.    Begin VB.PictureBox Picture1 
  16.       Align           =   2  'Align Bottom
  17.       Height          =   495
  18.       Left            =   0
  19.       ScaleHeight     =   465
  20.       ScaleWidth      =   6705
  21.       TabIndex        =   0
  22.       Top             =   4800
  23.       Width           =   6735
  24.       Begin VB.Label szStatus 
  25.          Caption         =   "No Active Session"
  26.          Height          =   255
  27.          Left            =   120
  28.          TabIndex        =   3
  29.          Top             =   120
  30.          Width           =   4695
  31.       End
  32.    End
  33.    Begin Threed.SSPanel SSPanel1 
  34.       Align           =   1  'Align Top
  35.       Height          =   1095
  36.       Left            =   0
  37.       TabIndex        =   1
  38.       Top             =   0
  39.       Width           =   6735
  40.       _Version        =   65536
  41.       _ExtentX        =   11880
  42.       _ExtentY        =   1931
  43.       _StockProps     =   15
  44.       BackColor       =   12632256
  45.       BevelInner      =   1
  46.       Begin Threed.SSCommand SSCommand1 
  47.          Height          =   855
  48.          Left            =   120
  49.          TabIndex        =   2
  50.          Top             =   120
  51.          Width           =   1215
  52.          _Version        =   65536
  53.          _ExtentX        =   2143
  54.          _ExtentY        =   1508
  55.          _StockProps     =   78
  56.          Caption         =   "Login cc:Mail"
  57.          Picture         =   "OCXSTEP2.frx":0000
  58.       End
  59.    End
  60.    Begin Mailx16Lib.MForm MForm1 
  61.       Left            =   480
  62.       Top             =   4440
  63.       _Version        =   65542
  64.       _ExtentX        =   10398
  65.       _ExtentY        =   500
  66.       _StockProps     =   0
  67.       MXFormName      =   "FormTag2"
  68.    End
  69.    Begin Mailx16Lib.MSess MSess1 
  70.       Left            =   120
  71.       Top             =   3840
  72.       _Version        =   65542
  73.       _ExtentX        =   900
  74.       _ExtentY        =   900
  75.       _StockProps     =   0
  76.       Mail_Type       =   2
  77.       DisplayErrors   =   0   'False
  78.    End
  79.    Begin Mailx16Lib.MMsg MMsg1 
  80.       Left            =   120
  81.       Top             =   3000
  82.       _Version        =   65542
  83.       _ExtentX        =   900
  84.       _ExtentY        =   900
  85.       _StockProps     =   0
  86.       MarkAsRead      =   0   'False
  87.       DisplayErrors   =   0   'False
  88.       BindString      =   "MSess1"
  89.       FastFetch       =   -1  'True
  90.    End
  91.    Begin TabDlg.SSTab SSTab1 
  92.       Height          =   3255
  93.       Left            =   360
  94.       TabIndex        =   4
  95.       Top             =   1200
  96.       Width           =   6135
  97.       _Version        =   65536
  98.       _ExtentX        =   10821
  99.       _ExtentY        =   5741
  100.       _StockProps     =   15
  101.       Caption         =   "Inbox Messages"
  102.       TabsPerRow      =   5
  103.       Tab             =   0
  104.       TabOrientation  =   0
  105.       Tabs            =   1
  106.       Style           =   1
  107.       TabMaxWidth     =   0
  108.       TabHeight       =   529
  109.       TabCaption(0)   =   "Inbox Messages"
  110.       Tab(0).ControlCount=   3
  111.       Tab(0).ControlEnabled=   -1  'True
  112.       Tab(0).Control(0)=   "Outline1"
  113.       Tab(0).Control(1)=   "Label1"
  114.       Tab(0).Control(2)=   "szTotal"
  115.       Begin VB.Label szTotal 
  116.          Height          =   255
  117.          Left            =   2040
  118.          TabIndex        =   7
  119.          Top             =   2880
  120.          Width           =   1935
  121.       End
  122.       Begin VB.Label Label1 
  123.          Caption         =   "Total Inbox Messages:"
  124.          Height          =   255
  125.          Left            =   240
  126.          TabIndex        =   6
  127.          Top             =   2880
  128.          Width           =   1695
  129.       End
  130.       Begin MSOutl.Outline Outline1 
  131.          Height          =   2295
  132.          Left            =   240
  133.          TabIndex        =   5
  134.          Top             =   480
  135.          Width           =   5655
  136.          _Version        =   65536
  137.          _ExtentX        =   9975
  138.          _ExtentY        =   4048
  139.          _StockProps     =   77
  140.          BackColor       =   16777215
  141.          MouseIcon       =   "OCXSTEP2.frx":0452
  142.          PicturePlus     =   "OCXSTEP2.frx":046E
  143.          PictureMinus    =   "OCXSTEP2.frx":05E0
  144.          PictureLeaf     =   "OCXSTEP2.frx":0752
  145.          PictureOpen     =   "OCXSTEP2.frx":08C4
  146.          PictureClosed   =   "OCXSTEP2.frx":0A36
  147.       End
  148.    End
  149. Attribute VB_Name = "FormStep1"
  150. Attribute VB_Creatable = False
  151. Attribute VB_Exposed = False
  152. Private Sub SSCommand1_Click()
  153.     MSess1.Logon = True
  154.     If MSess1.Logon = True Then
  155.         szStatus = "Active cc:Mail Session"
  156.     Else
  157.         szStatus = "No Active Session"
  158.     End If
  159.     Refresh_Inbox
  160. End Sub
  161. Public Sub Refresh_Inbox()
  162.     If MSess1.Logon = True Then
  163.         szTotal = MMsg1.MsgCount
  164.     Else
  165.         szTotal = 0
  166.     End If
  167. End Sub
  168.